1 PRINT"[147]"
10 SC=10:CL=54272:CW=15:CN=15:POKE53281,15
20 POKE808,225
100 PRINT"[147]            TRON   BY BOB MAAS  [144]"
110 PRINT" A TWO PLAYER GAME IN WHICH YOU TRY TO   COLOR IN MORE DOTS THAN YOUR";
120 PRINT" OPPONENT":PRINT"          3000 IS MAXIUM SCORE"
130 PRINT"IF YOU BOTH GET BLOCKED IN PUSH S TO END":PRINTSPC(91)"PUSH KEY TO START"
200 IFPEEK(197)=64THEN200
1000 PRINT"[147]":W=1527:WW=W:N=1520:NN=N:S1=0:S2=0:FORF=55336TO56254:POKEF,1:NEXT
1005 FORF=1024TO1063:POKEF,81:POKEF+960,81:POKEF+CL,2:POKEF+CL+960,2:NEXT
1010 FORF=1064TO1944STEP40:POKEF,81:POKEF+39,81:POKEF+CL,2:POKEF+CL+39,2:NEXT
1040 PRINT"STOSTOP"
1050 PRINT"TRONBYBOBMAAS[145]"
2000 P=PEEK(56320):W=W+(P=123)-(P=119):W=W+(40*(P=126))-((P=125)*40)
2020 IFPEEK(W)<>32THENW=WW
2030 IFPEEK(W)=32ANDP<>127THENS2=S2+SC
2040 POKEWW,81:POKEW,CW:WW=W
3000 P=PEEK(56321):N=N+(P=251)-(P=247):N=N+(40*(P=254))-((P=253)*40)
3020 IFPEEK(N)<>32THENN=NN
3030 IFPEEK(N)=32ANDP<>255THENS1=S1+SC
3040 GETA$:IFA$="S"THENGOTO5000
4000 POKENN,81:POKEN,CN:NN=N:POKEN+CL,0:IFS1<SC*300ANDS2<SC*300THEN2000
5000 PRINT"[144]ONE="S1;TAB(30)"TWO="S2
5010 PRINT">>> TO PLAY AGAIN PUSH FIRE BUTTON <<<"
5110 IFPEEK(56320)=111ORPEEK(56321)=239THENGOTO1000
5120 GOTO5110